home *** CD-ROM | disk | FTP | other *** search
/ Digital Photography Techniques 2003 October / DPTi04.iso / pc / shared.cst / 00045_weblink beh.ls < prev    next >
Encoding:
Text File  |  2003-08-26  |  566 b   |  21 lines
  1. property whichEvent, whichurl
  2.  
  3. on mouseUp me
  4.  
  5.     if whichEvent = #mouseup    then init me
  6.   end if
  7. end
  8.  
  9. on init me
  10.   gotoNetPage the whichurl of me
  11. end
  12.  
  13.  
  14. ---
  15.  
  16. on getPropertyDescriptionList  
  17.   set p_list = [       #Whichurl:[ #comment:   "URL:",                     #format:  #string,                    #default:   "http://                 " ],    #WhichEvent: [ #comment:   "Initializing Event:",                     #format:   #symbol,                      #range: [ #MouseUp],                    #default:   #MouseUp ]                  ]
  18.   return p_list  
  19. end
  20.  
  21.